home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / grob.pri < prev    next >
Text File  |  1995-03-23  |  2KB  |  81 lines
  1. Article 1777 of comp.sys.handhelds:
  2. Path: en.ecn.purdue.edu!noose.ecn.purdue.edu!mentor.cc.purdue.edu!purdue!bu.edu!rpi!zaphod.mps.ohio-state.edu!wuarchive!cs.utexas.edu!asuvax!ncar!boulder!ccncsu!longs.LANCE.ColoState.Edu!robert
  3. From: robert@longs.LANCE.ColoState.Edu (Robert Thompson)
  4. Newsgroups: comp.sys.handhelds
  5. Subject: GROB Vertical Printer
  6. Message-ID: <10220@ccncsu.ColoState.EDU>
  7. Date: 12 Oct 90 15:48:59 GMT
  8. Sender: news@ccncsu.ColoState.EDU
  9. Reply-To: robert@longs.LANCE.ColoState.Edu (Robert Thompson)
  10. Organization: Colorado State University, Fort Collins, CO  80523
  11. Lines: 66
  12.  
  13.  
  14. %%HP: T(3)A(R)F(.);
  15. @ ROTATE: This program was written By Robert Craeger and Robert Thompson
  16. @ 
  17. @
  18. @ In the hopes of being able to print GROBS that were too long to fit into 
  19. @ the 166 dot requirement of the printer, the program below was written.  This
  20. @ program will rotate a GROB and print it vertically on the IR printer that
  21. @ so many uf us wish we had. :-)
  22. @
  23. @ Unfortunately, this program is slow (Not *really* slow but slow
  24. @ nevertheless)  A future version is planed that will be entirely in
  25. @ m-code.
  26. @
  27. @ Please send any remarks to:
  28. @        
  29. @         robert@longs.LANCE.ColoState.Edu
  30. @                or
  31. @         rc943406@longs.LANCE.ColoState.Edu
  32. @
  33. @ REMARKS:
  34. @        Remember to set the appropriate modes on your 48 when using
  35. @    the old printer.  OLDPRT SHOULD NOT BE ENABLED! for the old printer
  36. @
  37. @ PSEUDOBENCHMARK:
  38. @               This program takes approximatly 1.5 Minutes on a 50x63 GROB
  39. @
  40. @ BUGS:
  41. @        This program needs an inane amount of memory to run!
  42.  
  43. DIR
  44.   ROTATE
  45.     \<< HEX STRIP
  46. OVER 2 / FLOOR 83 -
  47. NEG 27 CHR 4 PICK 3
  48. PICK + CHR + SWAP 1
  49. SWAP
  50.       START 0 CHR +
  51.       NEXT \-> x y
  52. str pad
  53.       \<< 8 STWS 0 x
  54. 8 / FLOOR 1 -
  55.         FOR h h 2 *
  56. 1 + \-> cnst
  57.           \<< pad y 1
  58. - 0
  59.             FOR i
  60. "#" str i x * 4 /
  61. cnst + DUP 1 + SUB
  62. + STR\-> RR RR RR RR
  63. B\->R CHR + -1
  64.             STEP PR1
  65.           \>> DROP
  66.         NEXT
  67.       \>>
  68.     \>>
  69.   STRIP
  70.     \<< DUP SIZE B\->R
  71. SWAP B\->R 8 / CEIL 8
  72. * SWAP ROT \->STR 1 3
  73.       START DUP " "
  74. POS 1 + OVER SIZE
  75. SUB
  76.       NEXT
  77.     \>>
  78. END
  79.  
  80.  
  81.